program sshtunnel;

{$mode objfpc}
{$H+}

uses
  classes, gtk2, glib2, sysutils,
  sshprocs, application;

var
  app : TApplication;
begin
  gtk_init(@argc, @argv);
  
  try
    app := TApplication.Create;
    gtk_main;
  finally
    if Assigned(app) then FreeAndNil(app);
  end;
  
end.//program sshtunnel

